home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK2.toast / Development Kits (Disc 2) / ScriptX / Code Samples / autofind / source / criteria.sx < prev    next >
Encoding:
Text File  |  1996-05-21  |  840 b   |  45 lines  |  [TEXT/ttxt]
  1. --<<<
  2. -- Filename: 
  3. --     crit.sx
  4.  
  5. -- Other Files Required:
  6. --     None
  7.  
  8. -- Purpose:  
  9. --     Creates a RangeCriterion class, for doing searching on a database using ranges of values.
  10.  
  11. -- Specialized Classes:  
  12. --     RangeCriterion
  13.  
  14. -- Instructions to User: 
  15. --     A RangeCriterion is simply a collection of Range objects (e.g. 1 to 10). It defines the
  16. --     isMember method to check if an object falls into any of the ranges in the collection.
  17.  
  18. -- Author:
  19. --      Steve Mayer
  20.  
  21. in module Autofinder
  22.  
  23. class RangeCriterion ()
  24. instance variables
  25.     ranges
  26. end
  27.  
  28. method init self {class RangeCriterion} #key ranges: ->
  29. (
  30.     nextMethod self
  31.     self.ranges := ranges
  32.     return self
  33. )
  34.  
  35. method isMember self {class RangeCriterion} value ->
  36. (
  37.     for r in self.ranges do
  38.     (
  39.         if (isMember r value) do return true
  40.     )
  41.     return false
  42. )
  43. -->>>
  44. "Compiled crit.sx"
  45.